home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 1
/
SPACE - Library 1 - Volume 1.iso
/
program
/
245
/
clp_load.lst
next >
Wrap
File List
|
1988-02-07
|
561b
|
21 lines
' ---------------------------- Pic Clip File Loader ----------------------------
'
' Filename$ --> Pic Clip File
'
Open "I",#1,Filename$
Input #1,Clip_len,Colr_len,Clip_width,Clip_hite,Rez_pic
Pic$=String$(Clip_len,0)
Colr$=String$(Colr_len,0)
Bget #1,Varptr(Colr$),Colr_len
Bget #1,Varptr(Pic$),Clip_len
Close #1
' =================================
' Install Color palette
'
Void Xbios(6,L:Varptr(Colr$))
' ==================================
' Xx,Yy --> Screen Coordinates
'
Put Xx,Yy,Pic$
' ==================================